home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 163 / 163.d81 / b.anth-flag xi (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  175 lines
  1. 10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0:poke53371,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147]":gosub60000
  4. 32 tq=ti
  5. 34 ifti<tq+150then34
  6. 40 dimw$(110),b(15),s$(17),m$(17),t$(17),mc(17),br(17)
  7. 50 unpack=13824:hg=13827:sr=52480:sq=52486:g=49153:ip=13312
  8. 52 sys57812"anth 3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  9. 54 sys57812"anth-flag.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  10. 56 print"[147]":poke251,64:poke252,96:poke253,80:sysun
  11. 57 tq=ti
  12. 58 poke252,96:poke253,80:syshg
  13. 60 sys57812"anth font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  14. 80 sys57812"anth c000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  15. 82 ifti<tq+180then82
  16. 90 fs$="[129][193][206][212][200][197][205][211] [193][206][196] [198][204][193][199][211]"
  17. 100 sp$="                                        "
  18. 110 syssr,96,76,56
  19. 120 tp$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  20. 130 bt$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  21. 140 fori=0to15:reads$:s$(i)=s$+".shp":m$(i)=s$+".mus":t$(i)=s$+".txt"
  22. 150 readmc(i),br(i):next
  23. 151 datatrengganu,0,5
  24. 152 datatrinidad,0,5
  25. 153 datatunisia,0,5
  26. 154 dataturkey,0,5
  27. 155 datauganda,0,5
  28. 156 dataukraine,0,5
  29. 157 dataussr,0,5
  30. 158 datauae,0,14
  31. 159 dataunitedstates,0,5
  32. 160 dataupper volta,0,14
  33. 161 datauruguay,1,5
  34. 162 datavatican city,0,5
  35. 163 datavenezuela,0,5
  36. 165 datawales,1,6
  37. 166 datawesternsamoa,1,5
  38. 167 dataviet-nam,0,5
  39. 200 syshg
  40. 210 goto600
  41. 220 :
  42. 230 :rem box
  43. 240 :
  44. 250 poke214,y:print
  45. 260 printtab(x)"[176]"left$(tp$,xx)"[174]"
  46. 262 printtab(x)"[170]["left$(sp$,xx-2)"][180]"
  47. 270 forii=2toyy:printtab(x)"[170]"left$(sp$,xx)"[180]":next
  48. 272 printtab(x+1)"[145]<"tab(x+xx)">"
  49. 280 printtab(x)"[173]"left$(bt$,xx)"[189]"
  50. 290 return
  51. 300 :
  52. 310 :rem load pic/mus/txt
  53. 320 :
  54. 330 poke214,20:print:printtab(14)"[155][204]oading [208]icture[145]"
  55. 340 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  56. 350 printtab(22)"[205]usic  [145]"
  57. 360 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  58. 370 printtab(22)"[215]ords  [145]"
  59. 380 fori=0to99:w$(i)="":next
  60. 390 sys13312,t$(s),dv
  61. 400 h=peek(252)*256+peek(251)
  62. 410 w$(0)=mid$(w$(0),3)
  63. 420 printtab(14)"               "
  64. 430 return
  65. 440 :
  66. 450 :rem display/play
  67. 460 :
  68. 470 poke251,64:poke252,96:poke253,76:sysun
  69. 480 poke252,96:poke253,76:syshg
  70. 490 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1
  71. 500 return
  72. 510 :
  73. 520 :rem turn off pic/mus
  74. 530 :
  75. 540 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0
  76. 550 syshg
  77. 560 return
  78. 570 :
  79. 580 :rem loop
  80. 590 :
  81. 600 s=1
  82. 610 print"[147]":poke53272,31
  83. 620 gosub880
  84. 622 poke214,19:print
  85. 624 iff1thenprinttab(4)"space [154] next song  q [154] quit to menu":goto628
  86. 626 printtab(12)"space [154] stop song
  87. 628 [141]330
  88. 630 n[178]0
  89. 640 [141]470:[151]53280,br(s)
  90. 650 [158]sq[171]3,"stopopen"
  91. 660 [139]mc(s)[167][158]sq[171]3,"open"
  92. 670 [129]i[178]0[164]4:[158]sq,1,20[170]i,[200](sp$,38):[130]
  93. 680 [129]i[178]0[164]4
  94. 690 [139][195](w$(n[170]i))[179]3[167]710
  95. 700 [158]sq,20[171][181](([195](w$(n[170]i))[173]2)),20[170]i,w$(n[170]i)
  96. 710 [130]
  97. 720 [158]sq[171]3,"wait"
  98. 730 [139][194](49152)[179][177]7[167]a$[178]" ":[137]830
  99. 740 jv[178][194](56320):[161]a$:[139]a$[178]""[175](jv[178]127)[167]730
  100. 742 [139]f1[167][139]a$[178]"q"[167]f1[178]0:g[178]0:[141]540:[137]620
  101. 750 [139]a$[179][177]""[175](jv[179][177]126)[167]790
  102. 760 [139]n[177][178]h[171]5[167]730
  103. 770 n[178]n[170]5
  104. 780 [137]660
  105. 790 [139]a$[179][177]""[175](jv[179][177]125)[167]830
  106. 800 [139]n[179]2[167]730
  107. 810 n[178]n[171]5
  108. 820 [137]660
  109. 830 [139]a$[178]" "[176]jv[179]112[167][141]540:s[178](s[170]1)[175]15:[137]620
  110. 840 [137]730
  111. 850 :
  112. 860 :[143] menu screen
  113. 870 :
  114. 880 [151]53281,0:[151]53280,0
  115. 882 [139]s[178]0[167]s[178]1:f1[178]0:[137]1050
  116. 890 [139](g[178]1)[175](mc(s[171]1)[178]0)[175](f1[178]1)[167]1050
  117. 900 [139](g[178]1)[175](mc(s[171]1)[178]0)[175](f1[178]0)[167]1050
  118. 910 g[178]1:[153]"load":x[178]2:xx[178]35:y[178]0:yy[178]21:[141]250
  119. 920 [153]"for"[163]10)"ortantan^           ortantan^
  120. 930 printtab(10)"[171][192][192][179][158]nthems and[129] [171][192][179][158]lags
  121. 940 [153][163]10)"forexp  /tantantantantantan    tanexp
  122. 950 printtab(13)"[145][192][192][192][192][174]  [176]
  123. 960 [153][163]13)"sysof thefor (NULL)or^(NULL)sysorld
  124. 970 printtab(13)"[129]       [173][189][173][189]
  125. 972 [153]"verify(NULL)close(NULL)close"[163]33)"waitverify(NULL)close(NULL)close"
  126. 974 [153]"verify(NULL)opencloselogclose"[163]33)"waitverify(NULL)closelogclose"
  127. 976 [153]"verify(NULL)"[163]33)"(NULL)"
  128. 978 [153]"verify(NULL)"[163]33)"(NULL)"
  129. 980 [151]214,8:[153]
  130. 990 [129]i[178]0[164]7:[153][163]6)""[199](i[170]65);
  131. 1000 [153][163]9)"cont"[200](s$(i),[195](s$(i))[171]4);
  132. 1010 [153][163]22)""[199](i[170]73);
  133. 1020 [153][163]25)"cont"[200](s$(i[170]8),[195](s$(i[170]8))[171]4):[130]
  134. 1030 [153][163]12)"r  cont'round the world
  135. 1040 printtab(12)"q  [154]quit
  136. 1050 [139]f1[167][161]a$:[139]a$[178]""[167][142]
  137. 1052 [151]214,19:[153]:[153]"                                  "
  138. 1060 [161]a$:[139]a$[178]""[167]1060
  139. 1070 [139]a$[179][177]"r"[167]1100
  140. 1080 f1[178]1:s[178]0
  141. 1090 [142]
  142. 1100 [139]a$[178]"q"[167][141]39900:[137]1040
  143. 1110 [139]a$[179]"a"[176]a$[177]"p"[167]1060
  144. 1120 s[178][198](a$)[171]65:f1[178]0
  145. 1130 [142]
  146. 10000 d[178][194](186):n$[178]"b.anth-flag xi":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  147. 39900 [151]214,18:[153]:[153][163]8)"contquit? are you sure? (ycont/ncont)on"
  148. 39910 [161]a$:[139]a$[178]""[167]39910
  149. 39920 [139]a$[178]"y"[167]40000
  150. 39930 [153][163]8)"cont                             on"
  151. 39940 [142]
  152. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  153. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  154. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  155. 40030 a$[178]"presenter":[141]40040:a$[178]"hello connect"
  156. 40040 [129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  157. 40050 [160]2:[159]2,i,2:[160]2:[139]st[167]40070
  158. 40060 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40090
  159. 40070 [130]:[139]a$[178]"presenter"[167][142]
  160. 40080 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  161. 40090 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  162. 40100 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  163. 40110 [153]"p(NULL)53272,23:run:":[151]631,13:[151]632,13:[151]198,2:[128]
  164. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  165. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  166. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  167. 60030 z$(0)[178]"atn(NULL)(NULL)left$val(NULL)(NULL) atn(NULL)str$ asc(NULL)atnchr$(NULL) (NULL)asc (NULL)left$val (NULL)(NULL)(NULL)(NULL)str$"
  168. 60032 z$(2)[178]"by (NULL)arquis, left$arned and (NULL)ucker"
  169. 60040 z$(4)[178]"(len) 1996 by mid$ & asc (NULL)ublishing, right$nc.
  170. 60050 z$(6)="[212]his program is not shareware
  171. 60070 z$(7)[178]"or in the public domain."
  172. 60080 z$(9)[178]"1-800-594-3370 or 1-318-221-8718"
  173. 60090 [151]214,12:[153]
  174. 60100 [129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  175.